ݱʽִֵм֮һ

Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select

testexpression 
ֵַʽ 
expressionlist-n 
 Case ѡһʽķֽб 
statements-n 
 testexpression  expressionlist-n еⲿƥʱִеһ䡣 
elsestatements-n 
 testexpression  Case Ӿκβֲƥʱִеһ䡣 
˵
 testexpression κ Case expressionlist ʽƥ䣬ִд Case Ӿһ Case Ӿ֮䣬Ӿ䣬ִиӾ䵽 End Select ֮䣬ȻȨת End Select ֮䡣 testexpression  Case Ӿе expressionlist ʽƥ䣬ֻеһƥ䱻ִС

Case Else ָʾ testexpression κ Case ѡ expressionlist ֮δҵƥ䣬ִ elsestatementsȻǱҪģǽ Case Else  Select Case ԴԤ testexpression ֵû Case expressionlist  testexpression ƥ Case Else 䣬ִ End Select ֮䡣

Select Case Ƕ׵ģÿһǶ׵ Select Case ֮ƥ End Select 䡣

Ӿ˵ʹ Select Case : 

Dim Color, MyVar
Sub ChangeBackground (Color)
   MyVar = lcase (Color)
   Select Case MyVar
      Case "red"     document.bgColor = "red"
      Case "green"   document.bgColor = "green"
      Case "blue"    document.bgColor = "blue"
      Case Else      MsgBox "ѡһɫ"
   End Select
End Sub
Ҫ
汾 1
